home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 July & August / rerun-1988-07-08.d64 / mom's kitchen (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.9 KB  |  51 lines
  1. 20 rem mom's kitchen aid
  2. 30 rem by l. olson
  3. 60 a$=chr$(14)
  4. 70 b$=chr$(15)
  5. 80 c$=chr$(10)
  6. 90 poke53281,15:poke53280,14
  7. 100 f$="[166][166][166][166][166][166][166][166][166][166]"
  8. 110 print"[147][144]"tab(11)"   kitchen aid   ":print tab(11)" forms generator "
  9. 120 print"   enter the name to be used at the"
  10. 130 print"   top of the forms   mom[157][157][157][157][157]";:input mm$
  11. 140 print"    make sure printer is turned on [144]"
  12. 150 print"[144]   choices:":print"   1) menu planner form"
  13. 160 print"   2) shopping list form":print"   enter choice:"
  14. 170 get k$:ifk$<>"1"andk$<>"2"then 170
  15. 180 print"[145]"tab(17)k$
  16. 190 open4,4:print tab(13)" printing... ":if k$="2" then 440
  17. 200 rem ----------menu planner---------
  18. 210 q$="  "+mm$+"'s daily menu planner  [146]":r$="for week of [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  19. 220 tb=int((15-len(mm$))/2)
  20. 230 s$=" sunday    monday    tuesday  wednesday"
  21. 240 w$="thursday   friday   saturday    notes:":e$=f$+f$+f$+f$:o$=" "
  22. 250 p$="[185][185][185][185][185][185][185][185][185]":gosub 310:t$=n$:gosub 320:x$=n$
  23. 260 p$="[165]morning[146][167]":gosub 310:t1$=n$:gosub 320:x1$=n$
  24. 270 p$="[165] noon  [146][167]":gosub 310:t2$=n$:gosub 320:x2$=n$
  25. 280 p$="[165]evening[146][167]":gosub 310:t3$=n$:gosub 320:x3$=n$
  26. 290 p$="[165]       [167]":gosub 310:u$=n$:gosub 320:y$=n$
  27. 300 p$="[184][184][184][184][184][184][184][184][184]":gosub 310:v$=n$:gosub 320:z$=n$:qq=0:goto 330
  28. 310 n$=p$+o$+p$+o$+p$+o$+p$:return
  29. 320 n$=p$+o$+p$+o$+p$:return
  30. 330 rem open 6,4,6:qq=1:rem use this line if 1526, 802 or similar printer used
  31. 340 l=7:if qq=1 then l=12
  32. 350 print#4,b$a$e$:print#4,spc(tb)q$:print#4,e$c$
  33. 360 print#4,tab(5)r$:print#4,e$:if qq=1 then print#6,chr$(24)
  34. 370 print#4,s$:print#4,t$:print#4,t1$:forj=1tol-1:print#4,u$:nextj:print#4,t2$
  35. 380 forj=1tol:print#4,u$:nextj:print#4,t3$:forj=1tol+1:print#4,u$:nextj
  36. 390 print#4,v$c$:print#4,w$:print#4,x$:print#4,x1$:forj=1tol-1:print#4,y$:nextj
  37. 400 print#4,x2$:forj=1tol:print#4,y$:nextj:print#4,x3$:forj=1tol+1:print#4,y$
  38. 410 nextj:print#4,z$c$c$:if qq=1 then print#6,chr$(36)
  39. 420 close4:close6:run
  40. 430 rem shopping list
  41. 440 v$=f$+"[166][166][166][166][166][166][166][166]":w$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":x$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164] [164]"
  42. 450 y$=mm$+"'s shopping list":tb=int((21-len(mm$))/2):z$="   "
  43. 460 for j=1 to 2:print#4,b$a$v$z$v$b$
  44. 470 print#4,spc(tb)y$spc(tb+6)spc(tb)y$
  45. 480 print#4,a$w$z$w$b$:for i=1 to 28:if i<10 then print#4," "i;:goto 500
  46. 490 print#4,i;
  47. 500 print#4,a$x$z$b$;:if i<10 then print#4," "i;:goto 520
  48. 510 print#4,i;
  49. 520 print#4,a$x$b$:next i:print#4,a$v$z$v$b$:nextj:close4:print
  50. 530 run
  51.